home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1999 September / PC Action Issue 81 (September 1999).ISO / vft / cast / com-bp.cst / 00054_ar-s-freQTVRd.ls < prev    next >
Encoding:
Text File  |  1999-04-28  |  680 b   |  28 lines
  1. on mouseEnter
  2.   set the cursor of sprite 52 to 280
  3.   set the visible of sprite 49 to true
  4. end
  5.  
  6. on mouseLeave
  7.   set the cursor of sprite 52 to -1
  8.   set the visible of sprite 49 to FALSE
  9. end
  10.  
  11. on mouseDown
  12.   global gPanomovieID,angolo
  13.   Repeat while the mousedown
  14.     put QTVRGetPanAngle(gPanomovieID) into angolo
  15.     put value(angolo) into angolo
  16.     put angolo-1 into angolo
  17.     put string(angolo) into angolo
  18.     QTVRSetPanAngle(gPanomovieID,angolo)
  19.     QTVRSetTransitionMode(gPanomovieID,"swing")
  20.     QTVRSetTransitionSpeed(gPanomovieID,"15")
  21.     QTVRUpdate(gPanomovieID)
  22.   end repeat
  23. end
  24.  
  25. on mouseUp
  26.   QTVRSetTransitionMode(gPanoMovieId,"normal")
  27.   QTVRUpdate(gPanoMovieID)
  28. end